home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1151 < prev    next >
Encoding:
Text File  |  1994-01-25  |  512 b   |  33 lines
  1. supdict begin
  2. /squareloop 
  3. { ystart spacing ystart abs 
  4. { /ycur xdf 
  5. xstart spacing xstart abs 
  6.  { 
  7. ycur m
  8. size 2 div neg size 2 div neg rmoveto
  9. 0 size rlineto
  10. size 0 rlineto
  11. 0 size neg rlineto
  12. closepath stroke
  13.  } for
  14. } for } def
  15. end 
  16. /squares 
  17.  {
  18.  supdict begin  
  19.  q newinside 
  20.  /color xdf
  21.  colorchoice 
  22.  w
  23.  /angle xdf 
  24.  /spacing xdf 
  25.  /size xdf 
  26.  
  27.  /xstart x1 x2 add 2 div neg spacing sub def 
  28.  /ystart y1 y2 add 2 div neg spacing sub def 
  29.  dx 2 div dy 2 div translate
  30.  angle rotate squareloop 
  31.  Q end
  32.  } def